Viết CT a) Viết CT nhập số nguyên N và dãy số gồm N số nguyên từ bàn phím. Tìm số lớn nhất trong dãy số b) Viết CT nhập số nguyên N và dãy số gồm N số nguyên từ bàn phím. Tìm số nguyên nhỏ nhất trong dãy số Mn giúp em vs Mà 2 câu này riêng biệt nên mong mn đừng viết chung 1 CT
a)
uses crt;
var a:array[1..100]of integer;
i,n,max:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln(max);
readln;
end.
b)
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Viết chương trình tìm Max, Min, Trung bình của độ lệch cùng độ lệch của nó (TB) so với Max, Min của một dãy số gồm `n` số nguyên, Với `n` là số tự nhiên được nhập từ bàn phìm
Sử dụng biến mảng để viết chương trình Pascal
Bài 3: Một bình thông nhau gồm 2 nhánh chứa nước. Người ta đổ thêm dầu hỏa vào 1 nhánh, độ cao cột dầu hỏa là 5 cm. Tính:
a. Độ chênh lệch mực nước trong 2 nhánh, Biết d nước= 10000 N/m3 , d dầu hỏa= 8000 N/m3
b. Tính độ chênh lệch mặt thoáng chất lỏng trong 2 nhánh?
Câu a:
Gọi độ chênh lệch mực nc là h.
\(p_A=8000\cdot0,05=400Pa\)
\(p_B=d_n\cdot h=10000h\left(Pa\right)\)
Tại hai điểm A,B: \(p_A=p_B\)
\(\Rightarrow400=10000h\Rightarrow h=0,04m=4cm\)
Viết chương trình nhập số nguyên N và dãy số gồm N số nguyên từ bàn phím. Tìm số lớn nhất trong dãy số.
Giúp mình với, mai mình thi môn này rồi 
uses crt;
Var a:array[1..100000] of longint;
i,n,max:longint;
Begin
clrscr;
write('Nhap n: '); readln(n);
For i:=1 to n do
Begin
Write('A[',i,'] = '); Readln(A[i]);
end;
for i:=1 to n do
if a[i]>max then max:=a[i];
write('Gia tri lon nhat trong day so vua nhap la: ',max);
readln
end.
BÀI 2. DÃY SỐ
Cho dãy số nguyên gồm n (3 ≤ n ≤ 100) phần tử a 1 , a 2 , …, a n (-1000 ≤ a i ≤ 1000).
Nhiệm vụ của em là phải tìm tích lớn nhất của ba trong dãy n số đã cho.
INPUT
Dòng đầu tiên chứa số nguyên dương n.
Dòng thứ hai chứa n số nguyên a 1 , a 2 , … ,a n .
OUTPUT
Một số nguyên duy nhất là tích lớn nhất tìm được của 3 số.
Ví dụ:
INPUT OUTPUT
7
5 2 10 1 3 2
150
2/4
4
3 -3 4 -1
12
* Ràng buộc:
Có 70% test tất cả các phần tử trong dãy đều dương hoặc đều âm.
dễ thì bạn làm đi mà bạn đấy k làm được bạn ấy mới hỏi mà bạn lại bảo tự làm là sao
Tổng số hạt trong nguyên tử A là 16, nguyên tử B là 48. Tìm số hạt p,n,e trong mỗi nguyên tử biết rằng chênh lệch giữa hạt proton và nơtron trong mỗi nguyên tử không quá 1 đơn vị
Câu 1: Tìm số lớn nhất File chương trình: TimMax.pas
Yêu cầu: Tìm số lớn nhất trong dãy số nguyên cho trước.
Dữ liệu vào: Đọc từ file TimMax.inp, gồm:
- Dòng thứ nhất: Số nguyên dương N (1<N<103) là số lượng các số nguyên trong dãy số.
- Dòng thứ hai: là các số nguyên trong dãy số, các số nguyên được viết cách nhau 1 khoảng trắng và không vượt quá 109.
Dữ liệu ra: Ghi vào file TimMax.out, gồm 1 giá trị duy nhất là kết quả của bài toán.
Ví dụ:
|
TIMMAX.INP |
TIMMAX.OUT |
|
4 5 6 1 2 |
6 |
Ai giúp giải câu này với
Nhập vào từ bàn phím dãy A gồm N số nguyên (1<N<255)
1. in dãy vừa nhập râ màn hình
2. hãy cho biết số hạng lớn nhất của dãy
uses crt;
var a:array[1..255]of integer;
i,n,max:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (1<n) and (n<=255);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Day so vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('Gia tri lon nhat la: ',max);
readln;
end.
Nhập vào số nguyên dương N (N ≤ 100) và dãy A gồm N số nguyên dương A1, A2, …, AN (Ai ≤2.1019). In ra màn hình số chính phương lớn nhất trong dãy A. Nếu trong dãy không có số chính phương nào thì in ra giá trị là -1
